00100		SUBROUTINE SUBR
00200		COMMON /INS/ INST(27),BG(60)
00300		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
00400	C   INUM=INST#  IPAR=PARAM#  
00500	C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
00600	C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
00700	C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
00800	C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
00900	C   F1=86  F15=100 (NO F16!)
01000	
01100		INST(1)='TOOT'
01200		I=I+1
01300		K=P(3)
01400		IF(K.EQ.J)P(3)=P(3)+1
01500		J=P(3)
01600		IF(I.LT.7)RETURN
01700		IF(J.EQ.L)P(3)=P(3)-1
01800		L=P(3)
01900		P(3)=P(3)+12
02000		I=0
02100		P(5)=86
02200		INST(1)='CLAR'
02300		DF=4
02400		END